﻿Public Class WebSite

    Public Sub New()

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

        Me.Visible = False
        Dim cv As New CrystlViewer
        cv._ParamsValues.Add("TITLE", "网址一览表")
        cv._Rt = CrystlViewer.ReportType.WebSite
        Using cv
            cv.ShowDialog()
        End Using

        Me.Close()
    End Sub
End Class
